home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / CL.LSP < prev    next >
Text File  |  1995-01-20  |  219b  |  8 lines
  1. ;Changes picked items to a picked layer
  2. ;Bob Zelna
  3. (DEFUN C:CL (/ A B OBJ)
  4.   (SETQ OBJ (SSGET))
  5.   (SETQ B (CDR (ASSOC 8 (ENTGET (CAR (ENTSEL "\nPick new layer:"))))))
  6.   (COMMAND "CHANGE" OBJ "" "P" "LA" B "" )
  7. )
  8.